From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 19 Sep 1994 00:17:55 +0000 (+0000)
Subject: (openp): Fix Lisp_Object vs. int problems.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90157
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5ef2a3c0465660b2c32f2304034ec93722425172;p=emacs.git

(openp): Fix Lisp_Object vs. int problems.
---

diff --git a/src/lread.c b/src/lread.c
index 9afeec0192e..4ae0fcbf21b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -588,7 +588,8 @@ openp (path, str, suffix, storeptr, exec_only)
 		  /* We succeeded; return this descriptor and filename.  */
 		  if (storeptr)
 		    *storeptr = build_string (fn);
-		  RETURN_UNGCPRO (fd);
+		  UNGCPRO;
+		  return fd;
 		}
 	    }
 
@@ -598,10 +599,11 @@ openp (path, str, suffix, storeptr, exec_only)
 	  nsuffix += lsuffix + 1;
 	}
       if (absolute)
-	RETURN_UNGCPRO (-1);
+	break;
     }
 
-  RETURN_UNGCPRO (-1);
+  UNGCPRO;
+  return -1;
 }